﻿Public Class ucRelacionamento
    Private Sub llSolicitanteExternos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles llSolicitanteExternos.Click
        fMenu.TPRelacionamento.Controls.Clear()
        Dim uc = New ucCadastroSolicitante()
        uc.Dock = DockStyle.Fill
        fMenu.TPRelacionamento.Controls.Add(uc)
        uc = Nothing
    End Sub


    Private Sub llRecursos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles llRecursos.Click
        fMenu.TPRelacionamento.Controls.Clear()
        Dim uc = New ucCadastroRecurso()
        uc.Dock = DockStyle.Fill
        fMenu.TPRelacionamento.Controls.Add(uc)
        uc = Nothing
    End Sub

    Private Sub llParticularidades_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles llParticularidades.LinkClicked
        fMenu.TPRelacionamento.Controls.Clear()
        Dim uc = New ucCadastroParticularidade()
        uc.Dock = DockStyle.Fill
        fMenu.TPRelacionamento.Controls.Add(uc)
        uc = Nothing
    End Sub


    Private Sub llAgendamento_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles llAgendamento.LinkClicked
        fMenu.TPRelacionamento.Controls.Clear()
        Dim uc = New ucCadastroAgendamento()
        uc.Dock = DockStyle.Fill
        fMenu.TPRelacionamento.Controls.Add(uc)
        uc = Nothing
    End Sub
End Class
